1 OPEN1,8,15:FORI=0TO44:READA
2 PRINT#1,"M-W"CHR$(I)CHR$(5)CHR$(1)CHR$(A):NEXT:PRINT#1,"UC"
3 DATA169,254,170,32,21,5,202,224,1,208,248,32,21,5,232,224,255,208,248,240,235
4 DATA138,72,73,255,168,169,248,141,0,28,202,208,248,169,240,141,,28,136,208,248
5 DATA104,170,96
7 A$="THIS IS WARRIOR OF WARRIOR DESIGN       "
10 A$=A$+"LOOK AT THE DRIVE-LAMP OF YOUR 1541 - NICE ISN'T IT?! "
20 A$=A$+" IT'S AN OLD DEMO, BUT I LIKE IT "
50 FORI=1TO40:B$=B$+" ":NEXT:A$=B$+A$
60 POKE53281,11:POKE53280,.:FORI=.TO999:POKE1024+I,160:POKE55296+I,.:NEXT
70 S=1:T=39
80 PRINT"[144]"MID$(A$,S,T):POKE53281,INT(16*RND(1)):S=S+1:IFS=LEN(A$)THENS=1
90 FORI=7TO.STEP-1:POKE53270,I:FORZ=1TO30:NEXTZ,I:POKE53281,.:POKE53270,7
100 GOTO80